home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
assembler
/
progasm1.lha
/
SORGENTI2
/
LEZIONE6f.s
< prev
next >
Wrap
Text File
|
1994-07-28
|
8KB
|
230 lines
; Lezione6f.s SCRITTURA "SOPRA" UNA FIGURA
SECTION CiriCop,CODE
Inizio:
move.l 4.w,a6 ; Execbase in a6
jsr -$78(a6) ; Disable - ferma il multitasking
lea GfxName(PC),a1 ; Indirizzo del nome della lib da aprire in a1
jsr -$198(a6) ; OpenLibrary
move.l d0,GfxBase ; salvo l'indirizzo base GFX in GfxBase
move.l d0,a6
move.l $26(a6),OldCop ; salviamo l'indirizzo della copperlist vecchia
; Puntiamo i bitplanes in copperlist - prima la PIC
MOVE.L #PIC,d0 ; in d0 mettiamo l'indirizzo della PIC, in
; questo caso puntiamo piu' avanti di 50
; linee in modo da far "SALIRE" l'immagine.
LEA BPLPOINTERS,A1 ; puntatori nella COPPERLIST
MOVEQ #2,D1 ; numero di bitplanes -1 (qua sono 3)
POINTBP:
move.w d0,6(a1) ; copia la word BASSA dell'indirizzo del plane
swap d0 ; scambia le 2 word di d0 (es: 1234 > 3412)
move.w d0,2(a1) ; copia la word ALTA dell'indirizzo del plane
swap d0 ; scambia le 2 word di d0 (es: 3412 > 1234)
ADD.L #40*256,d0 ; + lunghezza bitplane -> prossimo bitplane
addq.w #8,a1 ; andiamo ai prossimi bplpointers nella COP
dbra d1,POINTBP ; Rifai D1 volte POINTBP (D1=num of bitplanes)
; PUNTIAMO IL NOSTRO BITPLANE
MOVE.L #BITPLANE,d0 ; in d0 mettiamo l'indirizzo della PIC,
LEA BPLPOINTERS2,A1 ; puntatori nella COPPERLIST (plane 4!)
move.w d0,6(a1) ; copia la word BASSA dell'indirizzo del plane
swap d0 ; scambia le 2 word di d0 (es: 1234 > 3412)
move.w d0,2(a1) ; copia la word ALTA dell'indirizzo del plane
move.l #COPPERLIST,$dff080 ; Puntiamo la nostra COP
move.w d0,$dff088 ; Facciamo partire la COP
move.w #0,$dff1fc ; Disattiva l'AGA
move.w #$c00,$dff106 ; Disattiva l'AGA
bsr.w print ; Stampa le linee di testo sullo schermo
; in HIRES
mouse:
btst #6,$bfe001 ; tasto sinistro del mouse premuto?
bne.s mouse ; se no, torna a mouse:
move.l OldCop(PC),$dff080 ; Puntiamo la cop di sistema
move.w d0,$dff088 ; facciamo partire la vecchia cop
move.l 4.w,a6
jsr -$7e(a6) ; Enable - riabilita il Multitasking
move.l gfxbase(PC),a1 ; Base della libreria da chiudere
jsr -$19e(a6) ; Closelibrary - chiudo la graphics lib
rts ; USCITA DAL PROGRAMMA
; Dati
GfxName:
dc.b "graphics.library",0,0
GfxBase: ; Qua ci va l'indirizzo di base per gli Offset
dc.l 0 ; della graphics.library
OldCop: ; Qua ci va l'indirizzo della vecchia COP di sistema
dc.l 0
; Routine che stampa caratteri larghi 8x8 pixel (su schermo LOWRES)
PRINT:
LEA TESTO(PC),A0 ; Indirizzo del testo da stampare in a0
LEA BITPLANE,A3 ; Indirizzo del bitplane destinazione in a3
MOVEQ #23-1,D3 ; NUMERO RIGHE DA STAMPARE: 23
PRINTRIGA:
MOVEQ #40-1,D0 ; NUMERO COLONNE PER RIGA: 40 (lores)
PRINTCHAR2:
MOVEQ #0,D2 ; Pulisci d2
MOVE.B (A0)+,D2 ; Prossimo carattere in d2
SUB.B #$20,D2 ; TOGLI 32 AL VALORE ASCII DEL CARATTERE, IN
; MODO DA TRASFORMARE, AD ESEMPIO, QUELLO
; DELLO SPAZIO (che e' $20), in $00, quello
; DELL'ASTERISCO ($21), in $01...
MULU.W #8,D2 ; MOLTIPLICA PER 8 IL NUMERO PRECEDENTE,
; essendo i caratteri alti 8 pixel
MOVE.L D2,A2
ADD.L #FONT,A2 ; TROVA IL CARATTERE DESIDERATO NEL FONT...
; STAMPIAMO IL CARATTERE LINEA PER LINEA
MOVE.B (A2)+,(A3) ; stampa LA LINEA 1 del carattere
MOVE.B (A2)+,40(A3) ; stampa LA LINEA 2 " "
MOVE.B (A2)+,40*2(A3) ; stampa LA LINEA 3 " "
MOVE.B (A2)+,40*3(A3) ; stampa LA LINEA 4 " "
MOVE.B (A2)+,40*4(A3) ; stampa LA LINEA 5 " "
MOVE.B (A2)+,40*5(A3) ; stampa LA LINEA 6 " "
MOVE.B (A2)+,40*6(A3) ; stampa LA LINEA 7 " "
MOVE.B (A2)+,40*7(A3) ; stampa LA LINEA 8 " "
ADDQ.w #1,A3 ; A1+1, avanziamo di 8 bit (PROSSIMO CARATTERE)
DBRA D0,PRINTCHAR2 ; STAMPIAMO D0 (40) CARATTERI PER RIGA
ADD.W #40*7,A3 ; ANDIAMO A CAPO
DBRA D3,PRINTRIGA ; FACCIAMO D3 RIGHE
RTS
; numero caratteri per linea: 40
TESTO: ; 1111111111222222222233333333334
; 1234567890123456789012345678901234567890
dc.b ' ' ; 1
dc.b ' SECONDA RIGA ' ; 2
dc.b ' /\ / ' ; 3
dc.b ' / \/ ' ; 4
dc.b ' ' ; 5
dc.b ' SESTA RIGA ' ; 6
dc.b ' ' ; 7
dc.b ' ' ; 8
dc.b 'FABIO CIUCCI COMMUNICATION INTERNATIONAL' ; 9
dc.b ' ' ; 10
dc.b ' 1234567890 !@#$%^&*()_+|\=-[]{} ' ; 11
dc.b ' ' ; 12
dc.b ' -=- LA PALINGENETICA OBLITERAZIONE -=- ' ; 13
dc.b " ## DELL'IO TRASCENDENTALE CHE SI ## " ; 14
dc.b ' /// IMMEDESIMA E SI INFUTURA \\\ ' ; 15
dc.b ' Nel mezzo del cammin di nostra vita ' ; 16
dc.b ' ' ; 17
dc.b ' Mi RitRoVaI pEr UnA sELva oScuRa ' ; 18
dc.b ' ' ; 19
dc.b ' CHE LA DIRITTA VIA ERA SMARRITA ' ; 20
dc.b ' ' ; 21
dc.b ' AHI Quanto a DIR QUAL ERA... ' ; 22
dc.b ' ' ; 23
dc.b ' ' ; 24
dc.b ' ' ; 25
dc.b ' ' ; 26
EVEN
SECTION GRAPHIC,DATA_C
COPPERLIST:
dc.w $120,$0000,$122,$0000,$124,$0000,$126,$0000,$128,$0000 ; SPRITE
dc.w $12a,$0000,$12c,$0000,$12e,$0000,$130,$0000,$132,$0000
dc.w $134,$0000,$136,$0000,$138,$0000,$13a,$0000,$13c,$0000
dc.w $13e,$0000
dc.w $8e,$2c81 ; DiwStrt (registri con valori normali)
dc.w $90,$2cc1 ; DiwStop
dc.w $92,$0038 ; DdfStart
dc.w $94,$00d0 ; DdfStop
dc.w $102,0 ; BplCon1
dc.w $104,0 ; BplCon2
dc.w $108,0 ; Bpl1Mod
dc.w $10a,0 ; Bpl2Mod
; 5432109876543210
dc.w $100,%0100001000000000 ; bit 14 - 4 bitplanes, 16 colori
BPLPOINTERS:
dc.w $e0,$0000,$e2,$0000 ;primo bitplane
dc.w $e4,$0000,$e6,$0000 ;secondo bitplane
dc.w $e8,$0000,$ea,$0000 ;terzo bitplane
BPLPOINTERS2:
dc.w $ec,$0000,$ee,$0000 ;quarto bitplane
dc.w $180,$000 ; color0 ; colori della figura un po' attenuati
dc.w $182,$354 ; color1
dc.w $184,$678 ; color2
dc.w $186,$567 ; color3
dc.w $188,$455 ; color4
dc.w $18a,$121 ; color5
dc.w $18c,$455 ; color6
dc.w $18e,$233 ; color7
dc.w $190,$d6e ; color8 ; I colori della scritta:
dc.w $192,$d6e ; color9 ; infatti tutte le varie
dc.w $194,$d6e ; color10 ; sovrapposizioni formerebbero
dc.w $196,$d6e ; color11 ; altri 8 colori, che noi
dc.w $198,$d6e ; color12 ; definiamo tutti uguali
dc.w $19a,$d6e ; color13
dc.w $19c,$d6e ; color14
dc.w $19e,$d6e ; color15
dc.w $FFFF,$FFFE ; Fine della copperlist
; Il FONT caratteri 8x8
FONT:
incbin "metal.fnt" ; Carattere largo
; incbin "normal.fnt" ; Simile ai caratteri kickstart 1.3
; incbin "nice.fnt" ; Carattere stretto
PIC:
incbin "amiga.320*256*3" ; qua carichiamo la figura in RAW,
SECTION MIOPLANE,BSS_C ; in CHIP
BITPLANE:
ds.b 40*256 ; un bitplane lores 320x256
end
In questo esempio abbiamo aggiunto il bitplane 4,su cui viene scritto il testo.
Col quarto bitplane si passa da 8 colori a 16, dunque per mantenere la
scrittura dello stesso colore in qualsiasi situazione di sovrapposizione con
gli altri 3 bitplane, tutti i "nuovi" otto colori devono essere uguali al
colore del testo.
Se invece i nuovi 8 colori sono simili ai primi otto, ma piu' chiari, si puo'
ottenere un'effetto di "TRASPARENZA", infatti ogni volta che il plane del testo
si sovrappone agli altri 3, visualizza per ogni pixel dei caratteri un colore
simile a quello della figura ma, appunto, piu' chiaro, e l'illusione della
"TRASPARENZA" avviene automaticamente.
Provate a sostituire la palette degli ultimi colori con questa:
dc.w $190,$454 ; color8 ; I colori della scritta:
dc.w $192,$7a8 ; color9 ; in questo caso formiamo
dc.w $194,$eef ; color10 ; 8 diversi colori per le
dc.w $196,$cde ; color11 ; 8 possibilita' di
dc.w $198,$aab ; color12 ; sovrapposizione - se notate
dc.w $19a,$786 ; color13 ; sono simili ai primi 8,
dc.w $19c,$9aa ; color14 ; ma molto piu' luminosi
dc.w $19e,$789 ; color15 ; per creare la "TRASPARENZA"